home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / BlitzBasic / VS-Includes / W-Gfx / W-Gfx.bb2 < prev    next >
Unknown  |  1998-06-24  |  4.9 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |; ######|########|
|00000010| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|00000020| 23 23 23 23 23 23 23 00 | 3b 20 23 20 20 20 20 20 |#######.|; # |
|00000030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 23 00 | | #.|
|00000050| 3b 20 23 20 20 20 20 20 | 20 57 69 6e 64 6f 77 20 |; # | Window |
|00000060| 47 66 78 20 49 6e 63 6c | 75 64 65 20 46 69 6c 65 |Gfx Incl|ude File|
|00000070| 20 20 20 20 20 20 23 00 | 3b 20 23 20 20 20 20 20 | #.|; # |
|00000080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 23 00 | | #.|
|000000a0| 3b 20 23 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; # | |
|000000b0| 20 56 31 2e 30 33 20 20 | 20 20 20 20 20 20 20 20 | V1.03 | |
|000000c0| 20 20 20 20 20 20 23 00 | 3b 20 23 20 20 20 20 20 | #.|; # |
|000000d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000000e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 23 00 | | #.|
|000000f0| 3b 20 23 20 20 20 20 20 | 20 20 4c 61 73 74 20 55 |; # | Last U|
|00000100| 70 64 61 74 65 64 20 31 | 30 2f 31 2f 39 34 20 20 |pdated 1|0/1/94 |
|00000110| 20 20 20 20 20 20 23 00 | 3b 20 23 20 20 20 20 20 | #.|; # |
|00000120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 23 00 | | #.|
|00000140| 3b 20 23 20 59 6f 75 20 | 73 65 65 20 74 68 61 74 |; # You |see that|
|00000150| 20 46 69 6e 61 6c 20 43 | 6f 70 79 20 5d 5b 20 74 | Final C|opy ][ t|
|00000160| 68 65 72 65 3f 20 23 00 | 3b 20 23 20 20 20 59 6f |here? #.|; # Yo|
|00000170| 75 20 73 65 65 20 74 68 | 6f 73 65 20 6e 69 66 74 |u see th|ose nift|
|00000180| 79 20 6f 75 74 6c 69 6e | 65 73 3f 20 20 20 23 00 |y outlin|es? #.|
|00000190| 3b 20 23 20 20 20 54 68 | 61 74 73 20 77 68 61 74 |; # Th|ats what|
|000001a0| 20 74 68 69 73 20 64 6f | 65 73 20 74 68 61 74 20 | this do|es that |
|000001b0| 69 73 21 20 20 20 23 00 | 3b 20 23 20 28 49 20 63 |is! #.|; # (I c|
|000001c0| 61 6e 20 73 65 65 20 79 | 6f 75 27 72 65 20 6e 6f |an see y|ou're no|
|000001d0| 74 20 69 6d 70 72 65 73 | 73 65 64 21 29 20 23 00 |t impres|sed!) #.|
|000001e0| 3b 20 23 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; # | |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000200| 20 20 20 20 20 20 23 00 | 3b 20 23 20 42 75 74 20 | #.|; # But |
|00000210| 6d 6f 72 65 20 69 6d 70 | 6f 72 74 61 6e 74 6c 79 |more imp|ortantly|
|00000220| 20 79 6f 75 20 63 61 6e | 20 6e 6f 77 20 20 23 00 | you can| now #.|
|00000230| 3b 20 23 20 20 65 61 73 | 69 6c 79 20 61 64 64 2c |; # eas|ily add,|
|00000240| 20 72 65 6d 6f 76 65 20 | 61 6e 64 20 72 65 66 72 | remove |and refr|
|00000250| 65 73 68 20 20 20 23 00 | 3b 20 23 20 20 20 20 20 |esh #.|; # |
|00000260| 20 20 74 68 6f 73 65 20 | 67 61 64 67 65 74 6c 69 | those |gadgetli|
|00000270| 73 74 73 21 20 20 20 20 | 20 20 20 20 20 20 23 00 |sts! | #.|
|00000280| 3b 20 23 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; # | |
|00000290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002a0| 20 20 20 20 20 20 23 00 | 3b 20 23 20 41 6e 64 20 | #.|; # And |
|000002b0| 69 66 20 79 6f 75 27 72 | 65 20 67 6f 69 6e 67 20 |if you'r|e going |
|000002c0| 74 6f 20 61 73 6b 20 2d | 20 59 45 53 21 20 23 00 |to ask -| YES! #.|
|000002d0| 3b 20 23 20 20 41 6c 6c | 20 6c 69 6e 65 73 20 6f |; # All| lines o|
|000002e0| 66 20 74 68 69 73 20 69 | 6e 63 6c 75 64 65 20 66 |f this i|nclude f|
|000002f0| 69 6c 65 20 20 20 23 00 | 3b 20 23 20 61 72 65 20 |ile #.|; # are |
|00000300| 66 72 65 65 77 61 72 65 | 20 2d 20 63 6f 70 79 20 |freeware| - copy |
|00000310| 69 74 20 6d 6f 64 69 66 | 79 20 69 74 2c 20 23 00 |it modif|y it, #.|
|00000320| 3b 20 23 20 65 76 65 6e | 20 73 6c 65 65 70 20 77 |; # even| sleep w|
|00000330| 69 74 68 20 69 74 20 66 | 6f 72 20 61 6c 6c 20 49 |ith it f|or all I|
|00000340| 20 63 61 72 65 20 23 00 | 3b 20 23 20 20 4a 75 73 | care #.|; # Jus|
|00000350| 74 20 6d 65 6e 74 69 6f | 6e 20 6d 65 20 73 6f 6d |t mentio|n me som|
|00000360| 65 77 68 65 72 65 2e 2e | 2e 2e 2e 2e 20 20 23 00 |ewhere..|.... #.|
|00000370| 3b 20 23 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |; # | |
|00000380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000390| 20 20 20 20 20 20 23 00 | 3b 20 23 23 23 23 23 23 | #.|; ######|
|000003a0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 23 |########|########|
|000003b0| 23 23 23 23 23 23 23 23 | 23 23 23 23 23 23 23 00 |########|#######.|
|000003c0| 3b 00 3b 20 53 54 41 54 | 45 4d 45 4e 54 53 00 3b |;.; STAT|EMENTS.;|
|000003d0| 20 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 00 3b 20 57 4f | =======|===.; WO|
|000003e0| 75 74 6c 69 6e 65 7b 78 | 31 2c 79 31 2c 78 32 2c |utline{x|1,y1,x2,|
|000003f0| 79 32 2c 48 69 67 68 4c | 69 74 65 2c 53 68 61 64 |y2,HighL|ite,Shad|
|00000400| 6f 77 7d 00 3b 20 20 20 | 20 20 20 20 20 20 20 74 |ow}.; | t|
|00000410| 6f 70 20 6c 65 66 74 20 | 63 6f 72 6e 65 72 20 20 |op left |corner |
|00000420| 20 20 20 3d 20 78 31 2c | 79 31 00 3b 20 20 20 20 | = x1,|y1.; |
|00000430| 20 20 20 20 20 20 62 6f | 74 74 6f 6d 20 72 69 67 | bo|ttom rig|
|00000440| 68 74 20 63 6f 72 6e 65 | 72 20 3d 20 78 32 2c 79 |ht corne|r = x2,y|
|00000450| 32 00 3b 20 20 20 20 20 | 20 20 20 20 20 48 69 67 |2.; | Hig|
|00000460| 68 4c 69 74 65 20 3d 20 | 68 69 67 68 6c 69 67 68 |hLite = |highligh|
|00000470| 74 20 63 6f 6c 6f 75 72 | 20 2d 20 70 65 6e 20 31 |t colour| - pen 1|
|00000480| 20 66 6f 72 20 57 42 32 | 2b 00 3b 20 20 20 20 20 | for WB2|+.; |
|00000490| 20 20 20 20 20 53 68 61 | 64 6f 77 20 20 20 3d 20 | Sha|dow = |
|000004a0| 53 68 61 64 6f 77 20 63 | 6f 6c 6f 75 72 20 20 20 |Shadow c|olour |
|000004b0| 20 2d 20 70 65 6e 20 32 | 20 66 6f 72 20 57 42 32 | - pen 2| for WB2|
|000004c0| 2b 00 3b 00 3b 20 57 42 | 65 76 65 6c 7b 78 31 2c |+.;.; WB|evel{x1,|
|000004d0| 79 31 2c 78 32 2c 79 32 | 2c 48 69 67 68 4c 69 74 |y1,x2,y2|,HighLit|
|000004e0| 65 2c 53 68 61 64 6f 77 | 7d 00 3b 20 20 20 20 20 |e,Shadow|}.; |
|000004f0| 20 20 20 20 20 41 73 20 | 41 62 6f 76 65 2e 00 3b | As |Above..;|
|00000500| 00 3b 20 46 55 4e 43 54 | 49 4f 4e 53 00 3b 20 3d |.; FUNCT|IONS.; =|
|00000510| 3d 3d 3d 3d 3d 3d 3d 3d | 00 3b 00 3b 20 52 65 6d |========|.;.; Rem|
|00000520| 6f 76 65 47 4c 69 73 74 | 7b 57 69 6e 2c 47 4c 69 |oveGList|{Win,GLi|
|00000530| 73 74 7d 00 3b 20 20 20 | 20 20 20 20 20 20 20 52 |st}.; | R|
|00000540| 65 6d 6f 76 65 73 20 67 | 61 64 67 65 74 6c 69 73 |emoves g|adgetlis|
|00000550| 74 20 47 4c 69 73 74 20 | 66 72 6f 6d 20 77 69 6e |t GList |from win|
|00000560| 64 6f 77 20 57 69 6e 2e | 00 3b 20 20 20 20 20 20 |dow Win.|.; |
|00000570| 20 20 20 20 52 65 74 75 | 72 6e 73 20 74 72 75 65 | Retu|rns true|
|00000580| 20 69 66 20 69 74 20 68 | 61 73 20 62 65 65 6e 20 | if it h|as been |
|00000590| 63 6f 6d 70 6c 65 74 65 | 64 20 73 75 63 63 65 73 |complete|d succes|
|000005a0| 66 75 6c 6c 79 2e 00 3b | 00 3b 20 41 64 64 47 4c |fully..;|.; AddGL|
|000005b0| 69 73 74 7b 57 69 6e 2c | 47 4c 69 73 74 7d 00 3b |ist{Win,|GList}.;|
|000005c0| 20 20 20 20 20 20 20 20 | 20 20 41 64 64 20 67 61 | | Add ga|
|000005d0| 64 67 65 74 6c 69 73 74 | 20 47 4c 69 73 74 20 74 |dgetlist| GList t|
|000005e0| 6f 20 77 69 6e 64 6f 77 | 20 57 69 6e 2e 00 3b 20 |o window| Win..; |
|000005f0| 20 20 20 20 20 20 20 20 | 20 52 65 74 75 72 6e 73 | | Returns|
|00000600| 20 74 72 75 65 20 69 66 | 20 74 61 73 6b 20 69 73 | true if| task is|
|00000610| 20 63 6f 6d 70 6c 65 74 | 65 64 20 73 75 63 63 65 | complet|ed succe|
|00000620| 73 73 66 75 6c 6c 79 2e | 00 3b 00 3b 20 52 65 64 |ssfully.|.;.; Red|
|00000630| 72 61 77 47 4c 69 73 74 | 7b 57 69 6e 2c 47 4c 69 |rawGList|{Win,GLi|
|00000640| 73 74 7d 00 3b 20 20 20 | 20 20 20 20 20 20 20 52 |st}.; | R|
|00000650| 65 64 72 61 77 73 20 61 | 6e 20 65 6e 74 69 72 65 |edraws a|n entire|
|00000660| 20 67 61 64 67 65 74 6c | 69 73 74 20 47 4c 69 73 | gadgetl|ist GLis|
|00000670| 74 20 69 6e 20 77 69 6e | 64 6f 77 20 57 69 6e 2e |t in win|dow Win.|
|00000680| 00 3b 20 20 20 20 20 20 | 20 20 20 20 52 65 74 75 |.; | Retu|
|00000690| 72 6e 73 73 20 74 72 75 | 65 20 69 66 20 73 75 63 |rnss tru|e if suc|
|000006a0| 63 65 73 73 66 75 6c 2e | 00 3b 00 3b 20 43 68 61 |cessful.|.;.; Cha|
|000006b0| 6e 67 65 47 4c 69 73 74 | 7b 57 69 6e 2c 47 4c 69 |ngeGList|{Win,GLi|
|000006c0| 73 74 31 2c 47 4c 69 73 | 74 32 7d 00 3b 20 20 20 |st1,GLis|t2}.; |
|000006d0| 20 20 20 20 20 20 20 52 | 65 6d 6f 76 65 73 20 47 | R|emoves G|
|000006e0| 4c 69 73 74 31 20 66 72 | 6f 6d 20 77 69 6e 64 6f |List1 fr|om windo|
|000006f0| 77 20 57 69 6e 2c 20 61 | 6e 64 20 61 64 64 73 20 |w Win, a|nd adds |
|00000700| 47 6c 69 73 74 32 20 69 | 6e 20 69 74 73 20 70 6c |Glist2 i|n its pl|
|00000710| 61 63 65 2e 00 3b 20 20 | 20 20 20 20 20 20 20 20 |ace..; | |
|00000720| 41 6c 73 6f 20 72 65 64 | 72 61 77 73 20 74 68 65 |Also red|raws the|
|00000730| 20 67 61 64 67 65 74 73 | 2e 20 20 52 65 74 75 72 | gadgets|. Retur|
|00000740| 6e 73 20 74 72 75 65 20 | 69 66 20 63 6f 6d 70 6c |ns true |if compl|
|00000750| 65 74 65 64 20 73 75 63 | 63 65 73 73 66 75 6c 6c |eted suc|cessfull|
|00000760| 79 2e 00 3b 00 3b 20 52 | 45 51 55 49 52 45 4d 45 |y..;.; R|EQUIREME|
|00000770| 4e 54 53 00 3b 20 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |NTS.; ==|========|
|00000780| 3d 3d 00 3b 00 3b 20 59 | 6f 75 20 6d 75 73 74 20 |==.;.; Y|ou must |
|00000790| 68 61 76 65 20 74 68 65 | 20 61 6d 69 67 61 6c 69 |have the| amigali|
|000007a0| 62 73 2e 72 65 73 20 66 | 69 6c 65 20 69 6e 20 74 |bs.res f|ile in t|
|000007b0| 68 65 20 63 6f 6d 70 69 | 6c 65 72 20 6f 70 74 69 |he compi|ler opti|
|000007c0| 6f 6e 73 2e 00 3b 20 54 | 68 69 73 20 77 6f 72 6b |ons..; T|his work|
|000007d0| 73 20 66 6f 72 20 4f 53 | 33 2e 30 20 66 6f 72 20 |s for OS|3.0 for |
|000007e0| 73 75 72 65 2c 20 61 6e | 64 20 61 70 70 61 72 65 |sure, an|d appare|
|000007f0| 6e 74 6c 79 20 4f 53 33 | 2e 31 20 74 6f 6f 2e 20 |ntly OS3|.1 too. |
|00000800| 20 49 74 73 00 3b 20 62 | 61 73 65 64 20 6f 6e 20 | Its.; b|ased on |
|00000810| 69 6e 74 75 69 74 69 6f | 6e 2e 6c 69 62 72 61 72 |intuitio|n.librar|
|00000820| 79 20 63 6f 6d 6d 61 6e | 64 73 20 74 68 61 74 20 |y comman|ds that |
|00000830| 61 72 65 20 69 6e 68 65 | 72 65 6e 74 20 69 6e 20 |are inhe|rent in |
|00000840| 74 68 65 20 4f 53 00 3b | 20 73 6f 20 49 20 67 75 |the OS.;| so I gu|
|00000850| 65 73 73 20 74 68 65 79 | 20 73 68 6f 75 6c 64 20 |ess they| should |
|00000860| 77 6f 72 6b 20 6f 6e 20 | 41 4c 4c 20 76 65 72 73 |work on |ALL vers|
|00000870| 69 6f 6e 73 20 6f 66 20 | 41 6d 69 67 61 4f 53 2e |ions of |AmigaOS.|
|00000880| 00 3b 00 3b 20 43 4f 4d | 4d 45 4e 54 53 00 3b 20 |.;.; COM|MENTS.; |
|00000890| 3d 3d 3d 3d 3d 3d 3d 3d | 00 3b 20 44 4f 4e 54 20 |========|.; DONT |
|000008a0| 47 45 54 20 43 4f 4e 46 | 55 53 45 44 20 57 49 54 |GET CONF|USED WIT|
|000008b0| 48 20 50 4f 53 49 54 49 | 4f 4e 49 4e 47 21 00 3b |H POSITI|ONING!.;|
|000008c0| 00 3b 20 2c 2d 2d 2d 2d | 20 54 68 61 74 20 70 6f |.; ,----| That po|
|000008d0| 69 6e 74 20 74 68 65 72 | 65 20 69 73 20 74 6f 70 |int ther|e is top|
|000008e0| 20 6c 65 66 74 20 2d 20 | 4e 4f 54 20 74 68 65 20 | left - |NOT the |
|000008f0| 6f 6e 65 20 64 69 61 67 | 6f 6e 61 6c 6c 79 20 64 |one diag|onally d|
|00000900| 6f 77 6e 2b 72 69 67 68 | 74 00 3b 20 56 00 3b 20 |own+righ|t.; V.; |
|00000910| 2c 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |,=======|========|
|00000920| 2c 00 3b 20 49 2c 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |,.; I,--|--------|
|00000930| 2d 2d 2d 2d 49 2c 00 3b | 20 49 7c 20 20 20 20 20 |----I,.;| I| |
|00000940| 20 20 20 20 20 20 20 20 | 20 49 7c 00 3b 20 49 7c | | I|.; I||
|00000950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 49 7c | | I||
|00000960| 00 3b 20 49 7c 20 20 20 | 20 20 20 20 20 20 20 20 |.; I| | |
|00000970| 20 20 20 49 7c 00 3b 20 | 49 7c 20 20 20 20 20 20 | I|.; |I| |
|00000980| 20 20 20 20 20 20 20 20 | 49 7c 00 3b 20 27 3d 3d | |I|.; '==|
|00000990| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 27 7c 00 |========|====='|.|
|000009a0| 3b 20 20 27 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |; '----|--------|
|000009b0| 2d 2d 2d 27 20 3c 2d 2d | 2d 20 4c 69 6b 65 77 69 |---' <--|- Likewi|
|000009c0| 73 65 20 74 68 69 73 20 | 69 73 20 62 6f 74 74 6f |se this |is botto|
|000009d0| 6d 20 72 69 67 68 74 20 | 2d 20 4e 4f 54 20 74 68 |m right |- NOT th|
|000009e0| 65 20 6f 6e 65 20 64 69 | 61 67 6f 6e 61 6c 6c 79 |e one di|agonally|
|000009f0| 00 3b 00 3b 20 4f 68 2c | 20 61 6e 64 20 63 68 61 |.;.; Oh,| and cha|
|00000a00| 6e 67 69 6e 67 20 74 68 | 65 20 68 69 67 68 6c 69 |nging th|e highli|
|00000a10| 74 65 20 61 6e 64 20 73 | 68 61 64 6f 77 20 72 6f |te and s|hadow ro|
|00000a20| 75 6e 64 20 6c 6f 6f 6b | 73 20 71 75 69 74 65 20 |und look|s quite |
|00000a30| 63 6f 6f 6c 20 74 6f 6f | 2e 00 3b 00 3b 20 54 68 |cool too|..;.; Th|
|00000a40| 65 20 67 61 64 67 65 74 | 20 6c 69 73 74 20 66 75 |e gadget| list fu|
|00000a50| 6e 63 74 69 6f 6e 73 20 | 61 72 65 20 62 61 73 65 |nctions |are base|
|00000a60| 64 20 6f 6e 20 63 6f 64 | 65 20 73 65 6e 74 20 74 |d on cod|e sent t|
|00000a70| 6f 20 74 68 65 20 62 6c | 69 74 7a 2d 6c 69 73 74 |o the bl|itz-list|
|00000a80| 20 62 79 00 3b 20 53 74 | 65 70 68 61 6e 20 4b 6f | by.; St|ephan Ko|
|00000a90| 72 74 6c 65 76 65 6e 20 | 28 73 74 65 66 40 49 58 |rtleven |(stef@IX|
|00000aa0| 4f 2e 62 65 29 2e 20 20 | 49 6e 20 66 61 63 74 20 |O.be). |In fact |
|00000ab0| 68 65 20 64 69 64 20 6d | 6f 73 74 20 6f 66 20 74 |he did m|ost of t|
|00000ac0| 68 65 20 68 61 72 64 20 | 77 6f 72 6b 20 6f 6e 00 |he hard |work on.|
|00000ad0| 3b 20 74 68 65 20 72 65 | 6d 6f 76 61 6c 20 6f 66 |; the re|moval of|
|00000ae0| 20 67 61 64 67 65 74 73 | 2c 20 61 6e 64 20 69 20 | gadgets|, and i |
|00000af0| 68 61 76 65 20 62 61 73 | 65 64 20 74 68 65 20 61 |have bas|ed the a|
|00000b00| 64 64 69 6e 67 20 61 6e | 64 20 72 65 66 72 65 73 |dding an|d refres|
|00000b10| 68 69 6e 67 20 72 6f 75 | 74 69 6e 65 73 00 3b 20 |hing rou|tines.; |
|00000b20| 6f 6e 20 74 68 65 20 74 | 72 69 63 6b 73 20 68 65 |on the t|ricks he|
|00000b30| 20 75 73 65 64 2e 20 20 | 41 6c 6c 20 74 68 65 20 | used. |All the |
|00000b40| 63 6f 64 65 20 69 73 20 | 61 63 74 75 61 6c 6c 79 |code is |actually|
|00000b50| 20 66 61 69 72 6c 79 20 | 73 69 6d 70 6c 65 20 69 | fairly |simple i|
|00000b60| 66 20 79 6f 75 20 68 61 | 76 65 00 3b 20 74 68 65 |f you ha|ve.; the|
|00000b70| 20 52 4b 4d 73 2c 20 62 | 75 74 20 74 68 69 73 20 | RKMs, b|ut this |
|00000b80| 69 73 20 6a 75 73 74 20 | 65 61 73 69 65 72 20 61 |is just |easier a|
|00000b90| 6e 64 20 6d 6f 72 65 20 | 63 6f 6d 70 61 63 74 20 |nd more |compact |
|00000ba0| 69 6e 20 79 6f 75 72 20 | 63 6f 64 65 2e 00 00 80 |in your |code....|
|00000bb0| 01 20 2e 57 47 46 58 5f | 67 61 64 67 65 74 6c 69 |. .WGFX_|gadgetli|
|00000bc0| 73 74 00 3b 20 74 68 65 | 20 62 6c 69 74 7a 32 20 |st.; the| blitz2 |
|00000bd0| 67 61 67 64 65 74 6c 69 | 73 74 20 6f 62 6a 65 63 |gagdetli|st objec|
|00000be0| 74 00 20 20 5f 67 61 64 | 67 65 74 73 2e 6c 20 3b |t. _gad|gets.l ;|
|00000bf0| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 74 68 65 20 | pointer| to the |
|00000c00| 69 6e 74 75 69 74 69 6f | 6e 20 67 61 64 67 65 74 |intuitio|n gadget|
|00000c10| 6c 69 73 74 00 80 02 20 | 80 01 00 00 80 01 20 2e |list... |...... .|
|00000c20| 57 47 46 58 5f 77 69 6e | 64 6f 77 00 3b 20 74 68 |WGFX_win|dow.; th|
|00000c30| 65 20 42 6c 69 74 7a 32 | 20 77 69 6e 64 6f 77 20 |e Blitz2| window |
|00000c40| 6f 62 6a 65 63 74 00 20 | 20 5f 77 69 6e 64 6f 77 |object. | _window|
|00000c50| 2e 6c 20 3b 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |.l ; poi|nter to |
|00000c60| 69 6e 74 75 69 74 69 6f | 6e 20 77 69 6e 64 6f 77 |intuitio|n window|
|00000c70| 00 20 20 5f 63 75 72 73 | 78 2e 77 00 20 20 5f 63 |. _curs|x.w. _c|
|00000c80| 75 72 73 79 2e 77 00 20 | 20 5f 70 6f 69 6e 74 65 |ursy.w. | _pointe|
|00000c90| 72 2e 6c 00 20 20 5f 6c | 65 6e 67 74 68 2e 6c 00 |r.l. _l|ength.l.|
|00000ca0| 80 02 20 80 01 00 00 3b | 20 68 65 72 65 73 20 74 |.. ....;| heres t|
|00000cb0| 68 65 20 72 6f 75 74 69 | 6e 65 73 2e 2e 2e 2e 00 |he routi|nes.....|
|00000cc0| 00 80 08 20 57 4f 75 74 | 6c 69 6e 65 7b 78 31 2c |... WOut|line{x1,|
|00000cd0| 79 31 2c 78 32 2c 79 32 | 2c 48 69 67 68 4c 69 74 |y1,x2,y2|,HighLit|
|00000ce0| 65 2c 53 68 61 64 6f 77 | 7d 00 20 20 c5 1e 20 78 |e,Shadow|}. .. x|
|00000cf0| 31 2c 79 31 2c 78 32 2d | 31 2c 79 31 2c 78 32 2d |1,y1,x2-|1,y1,x2-|
|00000d00| 31 2c 79 32 2d 31 2c 78 | 31 2c 79 32 2d 31 2c 78 |1,y2-1,x|1,y2-1,x|
|00000d10| 31 2c 79 31 2c 48 69 67 | 68 4c 69 74 65 00 20 20 |1,y1,Hig|hLite. |
|00000d20| c5 1e 20 78 31 2b 31 2c | 79 31 2b 31 2c 78 32 2c |.. x1+1,|y1+1,x2,|
|00000d30| 79 31 2b 31 2c 78 32 2c | 79 32 2c 78 31 2b 31 2c |y1+1,x2,|y2,x1+1,|
|00000d40| 79 32 2c 78 31 2b 31 2c | 79 31 2b 31 2c 53 68 61 |y2,x1+1,|y1+1,Sha|
|00000d50| 64 6f 77 00 80 02 20 80 | 08 00 00 80 08 20 57 42 |dow... .|..... WB|
|00000d60| 65 76 65 6c 7b 78 31 2c | 79 31 2c 78 32 2c 79 32 |evel{x1,|y1,x2,y2|
|00000d70| 2c 48 69 67 68 4c 69 74 | 65 2c 53 68 61 64 6f 77 |,HighLit|e,Shadow|
|00000d80| 7d 00 20 20 c5 1e 20 78 | 31 2c 79 31 2c 78 32 2d |}. .. x|1,y1,x2-|
|00000d90| 31 2c 79 31 2c 78 32 2d | 31 2c 79 32 2d 31 2c 78 |1,y1,x2-|1,y2-1,x|
|00000da0| 31 2c 79 32 2d 31 2c 78 | 31 2c 79 31 2c 53 68 61 |1,y2-1,x|1,y1,Sha|
|00000db0| 64 6f 77 00 20 20 c5 1e | 20 78 31 2b 31 2c 79 31 |dow. ..| x1+1,y1|
|00000dc0| 2b 31 2c 78 32 2c 79 31 | 2b 31 2c 78 32 2c 79 32 |+1,x2,y1|+1,x2,y2|
|00000dd0| 2c 78 31 2b 31 2c 79 32 | 2c 78 31 2b 31 2c 79 31 |,x1+1,y2|,x1+1,y1|
|00000de0| 2b 31 2c 48 69 67 68 4c | 69 74 65 00 20 20 c5 1e |+1,HighL|ite. ..|
|00000df0| 20 78 31 2b 32 2c 79 32 | 2d 32 2c 78 31 2b 32 2c | x1+2,y2|-2,x1+2,|
|00000e00| 79 31 2b 32 2c 78 32 2d | 32 2c 79 31 2b 32 2c 53 |y1+2,x2-|2,y1+2,S|
|00000e10| 68 61 64 6f 77 00 20 20 | c5 1e 20 78 32 2d 32 2c |hadow. |.. x2-2,|
|00000e20| 79 31 2b 32 2c 78 32 2d | 32 2c 79 32 2d 32 2c 78 |y1+2,x2-|2,y2-2,x|
|00000e30| 31 2b 32 2c 79 32 2d 32 | 2c 48 69 67 68 4c 69 74 |1+2,y2-2|,HighLit|
|00000e40| 65 00 20 20 c5 0b 20 78 | 32 2d 31 2c 79 31 2b 31 |e. .. x|2-1,y1+1|
|00000e50| 2c 53 68 61 64 6f 77 00 | 20 20 c5 0b 20 78 31 2b |,Shadow.| .. x1+|
|00000e60| 31 2c 79 32 2d 31 2c 53 | 68 61 64 6f 77 00 80 02 |1,y2-1,S|hadow...|
|00000e70| 20 80 08 00 00 80 09 2e | 62 20 52 65 6d 6f 76 65 | .......|b Remove|
|00000e80| 47 4c 69 73 74 7b 77 69 | 6e 2c 67 6c 69 73 74 7d |GList{wi|n,glist}|
|00000e90| 00 20 20 2a 70 6f 69 6e | 74 65 72 74 6f 2e 57 47 |. *poin|terto.WG|
|00000ea0| 46 58 5f 77 69 6e 64 6f | 77 3d 80 b8 20 c5 01 28 |FX_windo|w=.. ..(|
|00000eb0| 77 69 6e 29 00 20 20 2a | 67 61 64 67 65 74 73 2e |win). *|gadgets.|
|00000ec0| 57 47 46 58 5f 67 61 64 | 67 65 74 6c 69 73 74 3d |WGFX_gad|getlist=|
|00000ed0| 80 b8 20 c6 16 28 67 6c | 69 73 74 29 00 20 20 64 |.. ..(gl|ist). d|
|00000ee0| 3d ff c6 28 2a 70 6f 69 | 6e 74 65 72 74 6f 5c 5f |=..(*poi|nterto\_|
|00000ef0| 77 69 6e 64 6f 77 2c 2a | 67 61 64 67 65 74 73 5c |window,*|gadgets\|
|00000f00| 5f 67 61 64 67 65 74 73 | 2c 2d 31 29 00 20 20 80 |_gadgets|,-1). .|
|00000f10| 09 20 80 07 20 64 00 80 | 02 20 80 09 00 00 80 09 |. .. d..|. ......|
|00000f20| 2e 62 20 41 64 64 47 4c | 69 73 74 7b 77 69 6e 2c |.b AddGL|ist{win,|
|00000f30| 67 6c 69 73 74 7d 00 20 | 20 2a 70 6f 69 6e 74 65 |glist}. | *pointe|
|00000f40| 72 74 6f 2e 57 47 46 58 | 5f 77 69 6e 64 6f 77 3d |rto.WGFX|_window=|
|00000f50| 80 b8 20 c5 01 28 77 69 | 6e 29 00 20 20 2a 67 61 |.. ..(wi|n). *ga|
|00000f60| 64 67 65 74 73 2e 57 47 | 46 58 5f 67 61 64 67 65 |dgets.WG|FX_gadge|
|00000f70| 74 6c 69 73 74 3d 80 b8 | 20 c6 16 28 67 6c 69 73 |tlist=..| ..(glis|
|00000f80| 74 29 00 20 20 64 3d bc | 0f 00 20 20 80 0b 20 ff |t). d=.|.. .. .|
|00000f90| c5 28 2a 70 6f 69 6e 74 | 65 72 74 6f 5c 5f 77 69 |.(*point|erto\_wi|
|00000fa0| 6e 64 6f 77 2c 2a 67 61 | 64 67 65 74 73 5c 5f 67 |ndow,*ga|dgets\_g|
|00000fb0| 61 64 67 65 74 73 2c 2d | 31 2c 2d 31 2c 30 29 00 |adgets,-|1,-1,0).|
|00000fc0| 20 20 20 20 64 3d bc 0e | 00 20 20 80 c0 00 20 20 | d=..|. ... |
|00000fd0| 80 09 20 80 07 20 64 00 | 80 02 20 80 09 00 00 80 |.. .. d.|.. .....|
|00000fe0| 09 2e 62 20 52 65 64 72 | 61 77 47 4c 69 73 74 7b |..b Redr|awGList{|
|00000ff0| 77 69 6e 2c 67 6c 69 73 | 74 7d 00 20 20 2a 70 6f |win,glis|t}. *po|
|00001000| 69 6e 74 65 72 74 6f 2e | 57 47 46 58 5f 77 69 6e |interto.|WGFX_win|
|00001010| 64 6f 77 3d 80 b8 20 c5 | 01 28 77 69 6e 29 00 20 |dow=.. .|.(win). |
|00001020| 20 2a 67 61 64 67 65 74 | 73 2e 57 47 46 58 5f 67 | *gadget|s.WGFX_g|
|00001030| 61 64 67 65 74 6c 69 73 | 74 3d 80 b8 20 c6 16 28 |adgetlis|t=.. ..(|
|00001040| 67 6c 69 73 74 29 00 20 | 20 64 3d bc 0f 00 20 20 |glist). | d=... |
|00001050| 80 0b 20 ff c4 28 2a 67 | 61 64 67 65 74 73 5c 5f |.. ..(*g|adgets\_|
|00001060| 67 61 64 67 65 74 73 2c | 2a 70 6f 69 6e 74 65 72 |gadgets,|*pointer|
|00001070| 74 6f 5c 5f 77 69 6e 64 | 6f 77 2c 30 2c 2d 31 29 |to\_wind|ow,0,-1)|
|00001080| 00 20 20 20 20 64 3d bc | 0e 00 20 20 80 c0 00 20 |. d=.|.. ... |
|00001090| 20 80 09 20 80 07 20 64 | 00 80 02 20 80 09 00 00 | .. .. d|... ....|
|000010a0| 80 09 2e 62 20 43 68 61 | 6e 67 65 47 4c 69 73 74 |...b Cha|ngeGList|
|000010b0| 7b 77 69 6e 2c 67 6c 69 | 73 74 31 2c 67 6c 69 73 |{win,gli|st1,glis|
|000010c0| 74 32 7d 00 20 20 66 3d | 52 65 6d 6f 76 65 47 4c |t2}. f=|RemoveGL|
|000010d0| 69 73 74 7b 77 69 6e 2c | 67 6c 69 73 74 31 7d 00 |ist{win,|glist1}.|
|000010e0| 20 20 66 3d 41 64 64 47 | 4c 69 73 74 7b 77 69 6e | f=AddG|List{win|
|000010f0| 2c 67 6c 69 73 74 32 7d | 00 20 20 64 3d 52 65 64 |,glist2}|. d=Red|
|00001100| 72 61 77 47 4c 69 73 74 | 7b 77 69 6e 2c 67 6c 69 |rawGList|{win,gli|
|00001110| 73 74 32 7d 00 20 20 80 | 09 20 80 07 20 64 00 80 |st2}. .|. .. d..|
|00001120| 02 20 80 09 00 00 3b 20 | 54 45 53 54 20 53 54 55 |. ....; |TEST STU|
|00001130| 46 46 00 3b 20 44 65 63 | 6f 6d 6d 65 6e 74 20 74 |FF.; Dec|omment t|
|00001140| 68 69 73 20 74 6f 20 73 | 65 65 20 77 68 61 74 73 |his to s|ee whats|
|00001150| 20 67 6f 69 6e 67 20 6f | 6e 2e 00 3b 00 3b 57 62 | going o|n..;.;Wb|
|00001160| 54 6f 53 63 72 65 65 6e | 20 30 00 3b 53 63 72 65 |ToScreen| 0.;Scre|
|00001170| 65 6e 20 30 2c 31 31 2c | 22 54 65 73 74 22 00 3b |en 0,11,|"Test".;|
|00001180| 00 3b 57 69 6e 64 6f 77 | 20 30 2c 31 30 2c 31 30 |.;Window| 0,10,10|
|00001190| 2c 32 30 30 2c 32 30 30 | 2c 24 30 2c 22 54 45 53 |,200,200|,$0,"TES|
|000011a0| 54 22 2c 31 2c 32 00 3b | 00 3b 54 65 78 74 47 61 |T",1,2.;|.;TextGa|
|000011b0| 64 67 65 74 20 30 2c 31 | 30 2c 31 35 2c 24 30 2c |dget 0,1|0,15,$0,|
|000011c0| 30 2c 22 46 69 72 73 74 | 20 47 61 64 67 65 74 4c |0,"First| GadgetL|
|000011d0| 69 73 74 22 00 3b 00 3b | 54 65 78 74 47 61 64 67 |ist".;.;|TextGadg|
|000011e0| 65 74 20 31 2c 31 30 2c | 31 35 2c 24 30 2c 32 2c |et 1,10,|15,$0,2,|
|000011f0| 22 53 65 63 6f 6e 64 20 | 47 61 64 67 65 74 4c 69 |"Second |GadgetLi|
|00001200| 73 74 22 00 3b 53 74 72 | 69 6e 67 47 61 64 67 65 |st".;Str|ingGadge|
|00001210| 74 20 31 2c 31 30 2c 33 | 30 2c 24 30 2c 31 2c 33 |t 1,10,3|0,$0,1,3|
|00001220| 30 2c 31 30 30 00 3b 00 | 3b 54 65 78 74 47 61 64 |0,100.;.|;TextGad|
|00001230| 67 65 74 20 32 2c 39 30 | 2c 38 30 2c 24 30 2c 32 |get 2,90|,80,$0,2|
|00001240| 2c 22 54 68 69 72 64 20 | 47 61 64 67 65 74 4c 69 |,"Third |GadgetLi|
|00001250| 73 74 22 00 3b 50 72 6f | 70 47 61 64 67 65 74 20 |st".;Pro|pGadget |
|00001260| 32 2c 31 30 2c 31 35 2c | 24 30 2c 35 2c 31 30 2c |2,10,15,|$0,5,10,|
|00001270| 37 30 00 3b 00 3b 57 4f | 75 74 6c 69 6e 65 7b 36 |70.;.;WO|utline{6|
|00001280| 30 2c 36 30 2c 31 37 30 | 2c 31 35 30 2c 31 2c 32 |0,60,170|,150,1,2|
|00001290| 7d 00 3b 00 3b 57 42 65 | 76 65 6c 7b 32 30 2c 32 |}.;.;WBe|vel{20,2|
|000012a0| 30 2c 31 30 30 2c 35 30 | 2c 31 2c 32 7d 00 3b 00 |0,100,50|,1,2}.;.|
|000012b0| 3b 43 6c 69 63 6b 4d 6f | 75 73 65 00 3b 66 3d 41 |;ClickMo|use.;f=A|
|000012c0| 64 64 47 4c 69 73 74 7b | 30 2c 30 7d 00 3b 66 3d |ddGList{|0,0}.;f=|
|000012d0| 52 65 64 72 61 77 47 4c | 69 73 74 7b 30 2c 30 7d |RedrawGL|ist{0,0}|
|000012e0| 00 3b 66 3d 52 65 64 72 | 61 77 47 4c 69 73 74 7b |.;f=Redr|awGList{|
|000012f0| 30 2c 30 7d 00 3b 00 3b | 43 6c 69 63 6b 4d 6f 75 |0,0}.;.;|ClickMou|
|00001300| 73 65 00 3b 00 3b 49 6e | 6e 65 72 43 6c 73 00 3b |se.;.;In|nerCls.;|
|00001310| 66 3d 43 68 61 6e 67 65 | 47 4c 69 73 74 7b 30 2c |f=Change|GList{0,|
|00001320| 30 2c 31 7d 00 3b 00 3b | 43 6c 69 63 6b 4d 6f 75 |0,1}.;.;|ClickMou|
|00001330| 73 65 00 3b 00 3b 49 6e | 6e 65 72 43 6c 73 00 3b |se.;.;In|nerCls.;|
|00001340| 66 3d 43 68 61 6e 67 65 | 47 4c 69 73 74 7b 30 2c |f=Change|GList{0,|
|00001350| 31 2c 32 7d 00 3b 66 3d | 52 65 64 72 61 77 47 4c |1,2}.;f=|RedrawGL|
|00001360| 69 73 74 7b 30 2c 32 7d | 00 3b 00 3b 43 6c 69 63 |ist{0,2}|.;.;Clic|
|00001370| 6b 4d 6f 75 73 65 00 3b | 00 3b 66 3d 52 65 6d 6f |kMouse.;|.;f=Remo|
|00001380| 76 65 47 4c 69 73 74 7b | 30 2c 32 7d 00 3b 00 3b |veGList{|0,2}.;.;|
|00001390| 46 72 65 65 20 57 69 6e | 64 6f 77 20 30 00 3b 00 |Free Win|dow 0.;.|
|000013a0| 3b 45 6e 64 00 00 00 00 | |;End....| |
+--------+-------------------------+-------------------------+--------+--------+